Notes/Domino 6 and 7 Forum : RE: How to edit attachment from Lotus script

Notes/Domino 6 and 7 Forum

RE: How to edit attachment from Lotus script

RE: How to edit attachment from Lotus script
Posted by ~Lily Nonwetherjip on 27.Jan.04 at 02:02 PM using a Web browser
Category: Domino Designer

Release: All Releases

Platform: All Platforms

Use the 'NotesEmbeddedObject class':

This is in the Help, and I suggest that you search this and previous forums for the answer if you need further help....!

Dim doc As NotesDocument
Dim rtitem As Variant
'************...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:\samples\" & o.Source )
Call o.Remove
Set handle = o.Activate( False )
If ( handle Is Nothing ) Then
doc.Subject = "This object has no OLE automation interface"
Else
doc.Subject = "This object has an OLE automation interface"
End If
Call doc.Save( False, True )
End If
End Forall
End If

HTH,
Ranjan